home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / dwarfx / dwarf24.lha / dwarfdata.rexx < prev    next >
OS/2 REXX Batch file  |  1980-12-25  |  7KB  |  20 lines
  1. /* DWaRFx Data Setup V0.6b
  2. \\
  3. // Usage: DFx_Data.Rexx <TABLE x>
  4. \\
  5. //   <TABLE x> loads table number x ready for use with Encoding/Decoding.
  6. \\              If x=11 Then ALL TABLES will be loaded (0-10).
  7. //  
  8. \\ This script should only be used by one of the DWaRFx AmIRC rexx scripts.
  9. */
  10.  
  11. /* Compressed with CompressRexx v2.1, (C) 1993-96 Robert Hofmann */
  12. Parse Arg args;table=-1;temp=Pos("TABLE",Upper(args));If temp~=0 Then Do;temp=temp+6;temp2=Pos(" ",args,temp);If temp2>temp Then table=Substr(args,temp,temp2);Else table=Substr(args,temp);End;If table>-1 & table<12 Then Call GET_TABLES;Exit;GET_TABLES:;If table=10 | table=11 Then Do;table1=GetClip("ALINE.1");If table1="" Then Do;table1='? ZYXWVUTSRQPONMLKJIHGFEDCBA-0987654321}{][)($#@!,:.';Call SetClip("ALINE.1",table1);End;End;If table<10 | table=11 Then Do;table1=GetClip("ALINE.2");If table1="" Then Do;table1=X2C(0216)||XRange('1f'x,'7e'x)||X2C(8182838485868788a2a3a4a5a7a9);table1=table1||X2C(aaabaeb2b3b5b6b9babbbcbdbebfc3c6c7c8c9cacbcccdcecfd0);table1=table1||X2C(d1d2d3d4d5d6d7d8d9dadbdcdddedfe0e1e2e3e4e5e6e7e8e9ea);table1=table1||X2C(ebecedeeeff0f1f2f3f4f5f6f8f9fafbfcfdfeff);Call SetClip("ALINE.2",table1);End;End;routine="GET_TABLE"||table;Interpret "Call" routine;Return;GET_TABLE11:;GET_TABLE0:;table2=X2C(78E084DD3F686F6B5FD9A567C782DFCED47A48AA6DAB71A28747D5B616F6)
  13. table2=table2||X2C(3ABCC8A33E2679C322B233FC43A46EDE7BEA31533565B5462961);table2=table2||X2C(D1FA32BBF0F1CF8127552CFEB942F2DB74DAD7ED23A772F35D3D);table2=table2||X2C(EBBEE16A5AE5E476CD2B7EBA662FC64A5B1FE8D22D3083E7865E);table2=table2||X2C(7C376C4BD0E37DBD60FF44D66463285159F520E9B3D875A925E6);table2=table2||X2C(7024EF4E3BD3504049EE2A7302CBF8BF34453669CA21EC56AE58);table2=table2||X2C(CC3CE24D8877384F544C5739526241FBF9F42E85C95CFDDC);Call SetClip("ELINE.0",table2);If table=0 Then Return;GET_TABLE1:;table2=X2C(ABF92577C3FC3228A95FD879BCF25182D1627DCBCE4A265B53333FE3A424);table2=table2||X2C(665068EC43D68445EB40F3887CB967363E524C346AA5A3E44FF4);table2=table2||X2C(72F5D3F185F8AEC7573ADCA2E975762C5627C674B5E0E17A81E5);table2=table2||X2C(6B60C802BE2ADD22632B47D720DA42C9CC5DD4BBB62935E8CD2E);table2=table2||X2C(E71F2F3054FE554BA7AA877B6537BFE6B34831EAEFD239166158);table2=table2||X2C(496D837859CF3D2D46D971DB5CDF69BDFD3CBA6F7038FA5AF63B);table2=table2||X2C(B2FF6C64D023864D4ECA7E5EEDE2FB216EEE73DED5F04441)
  14. Call SetClip("ELINE.1",table2);If table=1 Then Return;GET_TABLE2:;table2=X2C(CB35D18230FFFED8B3656F5153B9A3A44462CC3E76612B5CDAB275ED39D3);table2=table2||X2C(49A2797863E452E18188436C34AACEAE2F546ED5FD3D41E5DDD0);table2=table2||X2C(BC47BDD72324E9226AF8F529576D3B58EE86465BBF853F7E384B);table2=table2||X2C(DEBE7DE625DB4850DC26A94CE8CD7B56F4C94AE0832DE2282C74);table2=table2||X2C(5DF33C5A7CD45573F2F6D25F84C837C65E77EB404E70314FA587);table2=table2||X2C(B6AB273A027AF1F0FCC3A7EC2EDF161F33D9BAB5BB6820C7FBCA);table2=table2||X2C(4DE360CF6921EF5942FA366BE745716772322AF964D6EA66);Call SetClip("ELINE.2",table2);If table=2 Then Return;GET_TABLE3:;table2=X2C(F5F060854A276AD675E7A35E690243DEB6E24FF2F365CEF92B3B3DE47DFE);table2=table2||X2C(6E37567138FC224BE8D1253FEFA4CD7628163C3A35DFD91FED30);table2=table2||X2C(465A722063EAEC793E7C51D2DCCB64A7414829AA53B22A235532);table2=table2||X2C(70BC7834FF8447EB4524774452C32EE06C317E74C821366F87D4);table2=table2||X2C(A2F158AE665FF4F8336286EED0BA4D5D5BE1E66B26FBBB82E52C)
  15. table2=table2||X2C(F6BF577AD7E9B3A9C6AB67CCDD2D5461A581DBD3C7D56D395949);table2=table2||X2C(E32F7BC94ED8FA50B54C83B95C68CABE88FDBD4042DACF73);Call SetClip("ELINE.3",table2);If table=3 Then Return;GET_TABLE4:;table2=X2C(3140D2B379C9466FC7E4A26DE2FFFCE1ED3E863BA72C3A472DECDC28A344);table2=table2||X2C(6CF86178AB66E85370EB276049C6D3883C4A67FBB53D51DECB4D);table2=table2||X2C(C85D81FA74CDE9364571AAD120E0EAA5BFAE21C34143F5572EFD);table2=table2||X2C(82501FF4654F296E4875F2A902725683FEF3383F873722426963);table2=table2||X2C(D4D9B6CF2BB2545F5B301662CA3925EF5A647B7E586B7DDF59F1);table2=table2||X2C(E5D8D0F9DDB976DA3532A4BC24F07C77D64B2F33F6E752D785E3);table2=table2||X2C(68CC6A558423BD342ACEEEBB7ABE264CD5DB5EE65C73BA4E);Call SetClip("ELINE.4",table2);If table=4 Then Return;GET_TABLE5:;table2=X2C(FB60D33133F234DCE87C7550DE742E82F8CD47E767ED71F5416EC33C427A);table2=table2||X2C(64D5225C29387766C6D8FAD945F0D2232F20E1623948F9CCDAE2);table2=table2||X2C(5E69E330B5AA635A582BE681BE79E9546D49325F7E4C5BEBF673)
  16. table2=table2||X2C(FE51FC027B65373B27A53A70D116845628DF4DA2BCD4B37DF1BD);table2=table2||X2C(6FEFCE46B943C8E4C9C7354F25BF88CF6B6AFDAE85B6E5A9EECA);table2=table2||X2C(D05772552144D6FF26403653BBCBF3E04BA7783DA42D83EC76B2);table2=table2||X2C(68A33F4E87BA59AB4A3E2461D7DD5DF46C1F862AEADB522C);Call SetClip("ELINE.5",table2);If table=5 Then Return;GET_TABLE6:;table2=X2C(64D13666E8218420612E5BCE264A67DAE33BB260F8B5D665EE625DBF7D48);table2=table2||X2C(74BA377176FCDFE61FDCDEC870FA434D33C7F0757AE5CB3DD402);table2=table2||X2C(BCE9B6E12BA227ECA4AE634BFEA96EE76877566F28227BEA4535);table2=table2||X2C(B9AAA34224832A47784FF1CF53DD5929C3CD257C7ED034ED3EE4);table2=table2||X2C(4CF941866ABB46572F5416853A818838304051F33C584ED94969);table2=table2||X2C(44A56BFFF56D31235E508279F439E2D3552D5CDB32F2D8CAF62C);table2=table2||X2C(C96C87B3FDCCEFBD52D7ABEB73FBE0BED53FD272C65AA75F);Call SetClip("ELINE.6",table2);If table=6 Then Return;GET_TABLE7:;table2=X2C(D76C3DBAF54B343ABBE34051B26DD33EB5CD6283BC78EBA239A428D1E0EE)
  17. table2=table2||X2C(8781264574A9FC484237386ABD2431548546D26082ED86FFECF3);table2=table2||X2C(BEE92558C6F47529563BA7E4FBCFC86BD64952FEF0A3DF573FDE);table2=table2||X2C(B6FA2A5AAB23887667AECE7CD0E541724C55164EF25E7E2769E8);table2=table2||X2C(F61F50CC65E777B94F6F6459637D7B33C37AEAD9F153DBB36147);table2=table2||X2C(2F362284DDCB2E5C21EF7173F8D570433035E2C72D68F9E1AADC);table2=table2||X2C(FDBFE6A54A44795F2B5B6E20D44DC966D85D2CCA3CDA0232);Call SetClip("ELINE.7",table2);If table=7 Then Return;GET_TABLE8:;table2=X2C(1FC3E6B92F7B6DF6B54A2537D3F2D22151FE3C2AECE7DD525A7779AAA33B);table2=table2||X2C(F44E8624E573EA3AF3CAF9714B67702368348353D4CB54EEF528);table2=table2||X2C(CF39C76C2E505E5FFC3D6662CD3F7EC62D452265E8C9DBDE5646);table2=table2||X2C(4DBE61496F6375D1D8BB35407CA448C8FDE336B6314233FFA9E9);table2=table2||X2C(D7B2B3EFEB02D07A6B8474E2724364572B88A529AE2CBA8716FA);table2=table2||X2C(CCBF6E5BA7E455A22676D9ED58E0207D78CE3E4438D55DDA4F41);table2=table2||X2C(2759FBD6856ADC69BCE1DFBDAB4781F85C82F1F0604C3230)
  18. Call SetClip("ELINE.8",table2);If table=8 Then Return;GET_TABLE9:;table2=X2C(3256C9A2A3E0C6E1B6F15A59B2DA3DD8D0F9307965D3FACADDF2BED93555);table2=table2||X2C(4E7A3350376FDBEF87A53A71D26BFBE525BF1F67F8CE4402AEDF);table2=table2||X2C(FC575F5DF0AA433C767DCF2DD181D6684526EDF65EFF703FEE51);table2=table2||X2C(F34FCCFEE32B5CA44222477E2E166A24416DB3532F60643ECB75);table2=table2||X2C(318528747B886C6929B97C4AAB62582AFD36D5732139E8BBEA3B);table2=table2||X2C(7772833461CDDE48A938664D46BC4B63C75282E95BA754F5862C);table2=table2||X2C(204978D4F423BDD76EC3E2EBB5BA404CE6E484ECE7C827DC);Call SetClip("ELINE.9",table2);If table=9 Then Return;GET_TABLE10:;table2=X2C(E7CFEEC2F3CEC1C7C0C3DBEACAFEDDF5E1E5FDFCE0FDB6CCE4F1EFF2);table2=table2||X2C(B6A4AFA5B0AEBFBAAAF7ACECDEA6C8A7D0E6DFF0B7B1F8B5);Call SetClip("ELINE.10",table2);Return
  19. /* Original script: 150 lines, 7249 bytes */
  20.